home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 111 / Tiger_Disk_111_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende iiN4 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  488b  |  13 lines
  1. 2 poke53280,.:poke53281,.:printchr$(147)
  2. 4 printchr$(147):fora=8to15:print:      ::poke646,a:print"";
  3. 6 print"[163][163]  [146]    [146]    [146]    [146]    [146]    [146]    [146]    [146]    [146][163][163]";:next
  4. 8 print"  [184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197]  [146]  ";:
  5. 10 printspc(17)"[146]ende[145]";:ifa>30then20
  6. 12 v=53248:fori=0to27 :pokev+22,(peek(v+22)and248)or7:print
  7. 14 printchr$(20)::forb=13to1step-.8
  8. 16 pokev+22,(peek(v+22)and248)orb:forc=ito8:print"[145]":
  9. 18 nextc,b,i:a=a+10:      gosub8
  10. 20 fort=1to750:next
  11. 22 poke53280,6:poke53281,14:print"[147]     aus lukian's nonsens-werkstatt     [157]";
  12. 24 fort=1to750:next:sys2048
  13.